home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 128 / 128.d81 / b.star noir (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  185 lines
  1. 1 poke55,0:poke56,56:clr:poke53281,0:poke53280,0:print"[147]"
  2. 2 dv=peek(186):ifdv<8thendv=8
  3. 3 gosub60000:rem  goto7
  4. 4 sys57812"cm/scr/wp/unp",dv,0:poke780,0:poke781,0:poke782,195:sys65493
  5. 5 sys57812"noir font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  6. 6 dimq$(20)
  7. 7 un=51456:hg=51459:wp=50944:sc=50176:cm=49920:poke53272,31
  8. 8 gosub1000
  9. 9 cl$="                        "
  10. 10 sp$="                                     "
  11. 12 tb$="     "
  12. 13 fori=0to24:poke54272+i,0:next
  13. 15 sys50176,64,96,56:rem 216
  14. 19 goto100
  15. 20 fori=15to24:poke781,i:sys59903:next
  16. 21 return
  17. 30 syscm,1024,152*256,1000
  18. 32 syscm,55296,156*256,1000
  19. 34 return
  20. 40 syscm,152*256,1024,1000
  21. 42 syscm,156*256,55296,1000
  22. 44 return
  23. 50 s=54272:pokes+1,int(rnd(0)*50+130):pokes+5,9:pokes+15,30:pokes+24,15
  24. 52 pokes+4,21:fort=0to200:next:pokes+4,20
  25. 54 return
  26. 100 z=0:poke198,0
  27. 102 z=z+1:geta$:ifa$=""andz<300then102
  28. 106 syshg
  29. 110 poke53281,0:poke53280,0
  30. 112 print"[147][159]       [215] [193] [204] [212]   [200] [193] [210] [206] [197] [196] ' [211][156]"
  31. 118 print"[176][192][192][174][176][192][178][192][174][176][192][192][174] [176][192][192][174]   [176][192][174] [176] [176][192][192][174] [178] [176][192][192][174]"
  32. 119 print"[221]     [221]  [221]  [221] [221]  [221]   [221] [221] [221] [221]  [221] [221] [221]  [221]
  33. 120 [153]"/tantan^  (NULL)  -tantan< -tan=exp   (NULL) (NULL) (NULL) (NULL)  (NULL) (NULL) -tan=exp"
  34. 121 [153]"   (NULL)  (NULL)  (NULL)  (NULL) (NULL) (NULL)    (NULL) (NULL) (NULL) (NULL)  (NULL) (NULL) (NULL) (NULL)
  35. 122 print"[173][192][192][189]  [177]  [189]  [173] [189] [173][192][189]  [189] [173][192][189] [173][192][192][189] [177] [189] [173][192][189]"
  36. 124 print"[129]      [193] [211][204][201][196][197][211][200][207][215] [207][198] [195][204][193][211][211][201][195] [198][201][204][205][211]
  37. 125 [153]"   asc(NULL)(NULL)(NULL) (NULL)left$val chr$(NULL)(NULL)str$val(NULL) peek(NULL)atnlen(NULL) & (NULL)left$right$(NULL)val val(NULL)atn
  38. 130 printtab(9)"1   [154][211]ee the pictures
  39. 132 [153][163]9)"2   contvalnter the contest
  40. 134 printtab(9)"3   [154][209]uit to [204][207][193][196][211][212][193][210]
  41. 142 [161]a$:[139]a$[178]""[167]142
  42. 150 [139]a$[178]"3"[167]40000
  43. 152 [139]a$[178]"1"[167]200
  44. 154 [139]a$[178]"2"[167]400
  45. 156 [137]142
  46. 200 p[178]1:[141]50
  47. 210 [141]20
  48. 220 [151]214,14:[153]
  49. 222 [153]"  cont(NULL)hile the picture is showing you
  50. 224 print"  can press [211][208][193][195][197][154] to go to the next
  51. 226 [153]"  picture.  (NULL)o go to a specific pic
  52. 228 print"  press a number from 1[154] to 8[154].  [212]o
  53. 230 [153]"  return to the (NULL)ain (NULL)enu press any
  54. 232 print"  other key.
  55. 240 [158]57812"j.sn"[170][196](p)[170]".shp",dv,0:[151]780,0:[151]781,0:[151]782,100:[158]65493
  56. 250 [151]251,100:[151]252,64:[151]253,96
  57. 252 [139]q[167]q[178]0:[158]hg
  58. 260 [151]53281,0:[153]"load";:[158]un:[158]hg:[151]53280,0
  59. 262 [158]sc[170]6,37,24,"stop"[170][196](p)[170]" "
  60. 268 [151]198,0
  61. 270 [161]a$:[139]a$[178]""[167]270
  62. 272 [141]50
  63. 280 [139]a$[178]" "[167]286
  64. 282 [139]a$[177][178]"1"[175]a$[179][178]"8"[167]p[178][197](a$):[137]287
  65. 284 [158]hg:[137]110
  66. 286 p[178]p[170]1:[139]p[177]8[167]p[178]1
  67. 287 q[178]1
  68. 288 [137]240
  69. 299 [137]299
  70. 400 [153]"load      clr(NULL) (NULL) atn (NULL)   (NULL) (NULL) right$ (NULL)   openlenontest":[141]50
  71. 406 [153]"list(NULL)right$len
  72. 410 fori=1to8step2
  73. 412 print"[155]"chr$(i+48)"/"chr$(i+49)
  74. 413 print"[145][145][145][145][154][212][201][212][204][197]:"
  75. 414 forj=1to4:print" [211][212][193][210]:":next
  76. 418 next
  77. 420 print"1-8 [211]ee [208]ics [213][208]/[196][206] [205]ove cursor [198]1 [196]one"
  78. 422 fori=217to242:pokei,peek(i)or128:next
  79. 428 y=0
  80. 430 poke214,y+2:print
  81. 432 printtab(11);
  82. 440 poke198,0
  83. 442 zz=peek(1024+pos(0)+(3+y)*40)
  84. 444 ifzz=160thenzz=32
  85. 446 zz$=chr$(zz)
  86. 450 getaa$
  87. 460 print"[146][164][157]";:ifaa$=""then450
  88. 462 ifaa$>="1"andaa$<="8"thenprint""zz$:goto530
  89. 463 ifaa$=chr$(133)thenprint""zz$:goto600
  90. 464 ifaa$<>"[145]"then470
  91. 465 ifpos(0)<>11thenprint" ":goto468
  92. 466 print""zz$
  93. 468 y=y-1:ify<0theny=19
  94. 469 goto430
  95. 470 ifaa$<>""then478
  96. 471 ifpos(0)<>11thenprint" ":goto473
  97. 472 print""zz$
  98. 473 y=y+1:ify>19theny=0
  99. 474 goto430
  100. 478 ifaa$=chr$(13)then471
  101. 480 if(aa$=chr$(20)andpos(0)>11)then510
  102. 490 ifpos(0)>=38then450
  103. 500 ifaa$=" "andpos(0)<>11then510
  104. 502 ifaa$>="a"andaa$<="z"andpos(0)<>11then510
  105. 503 ifaa$>="a"andaa$<="z"andpos(0)=11thenaa$=chr$(asc(aa$)or128):goto510
  106. 504 ifaa$>="[193]"andaa$<="[218]"then510
  107. 506 goto450
  108. 510 print""aa$;:goto450
  109. 530 gosub30
  110. 540 sys57812"j.sn "+aa$+".shp",dv,0:poke780,0:poke781,0:poke782,100:sys65493
  111. 550 poke251,100:poke252,64:poke253,96
  112. 560 poke53281,0:print"[147]";:sysun:syshg:poke53280,0
  113. 562 syssc+6,37,24,"[144] "+aa$+" "
  114. 568 poke198,0
  115. 570 geta$:ifa$=""then570
  116. 580 syshg:print"[147]":poke53281,0
  117. 590 gosub40
  118. 592 goto430
  119. 600 poke214,23:print:print"   [208]rocessing answers -- please wait  "
  120. 602 open2,3,2:fori=0to19:q$(i)=""
  121. 610 poke214,2+i:print
  122. 620 printtab(11);
  123. 630 forj=0to26
  124. 640 get#2,a$
  125. 646 q$(i)=q$(i)+a$
  126. 648 next
  127. 650 next:close2
  128. 660 poke214,23:print
  129. 662 gosub50
  130. 670 print"  [199]et printer set up and press a key. "
  131. 680 poke198,0
  132. 690 geta$:ifa$=""then690
  133. 700 open4,4,7:close4:ifst=-128then660
  134. 702 open4,4,7
  135. 704 print#4,tb$tb$tb$tb$"[212][200][197] [205][201][199][200][212][217] [204][207][193][196][211][212][193][210] [211][212][193][210] [206][207][201][210] [195][207][206][212][197][211][212]"chr$(13)chr$(13)
  136. 710 fori=0to19
  137. 720 ifi/5=int(i/5)thenprint#4,chr$(13)tb$q$(i)chr$(13):goto740
  138. 730 print#4,tb$tb$q$(i)
  139. 740 next
  140. 750 print#4,chr$(13)
  141. 760 print#4,tb$"[198]ill in the blanks below and send your entry to:"chr$(13)
  142. 770 print#4,tb$tb$"[211][212][193][210] [206][207][201][210] [195][207][206][212][197][211][212]
  143. 780 [152]4,tb$tb$"(NULL).(NULL). peekox 30008
  144. 790 print#4,tb$tb$"[211]hreveport [204][193] 71130
  145. 800 [152]4,[199](13)
  146. 810 [152]4,tb$"(NULL)ame:
  147. 820 print#4,tb$"        ------------------------------------------------------"
  148. 830 print#4,tb$"[193]ddress:
  149. 840 [152]4,tb$"        ------------------------------------------------------"
  150. 850 [152]4,tb$"lenity:
  151. 860 print#4,tb$"        ------------------------------------------------------"
  152. 870 print#4,tb$"[211]tate:                  [218][201][208] (country):
  153. 880 [152]4,tb$"        ----------------               -----------------------"
  154. 890 [129]i[178]0[164]17:[152]4:[130]
  155. 900 [160]4
  156. 902 [141]50
  157. 910 [137]110
  158. 1000 [158]57812"star noir.shp",dv,0:[151]780,0:[151]781,0:[151]782,100:[158]65493
  159. 1010 [151]251,100:[151]252,64
  160. 1020 [151]253,96
  161. 1030 [153]"load";:[158]un:[158]hg:[151]53280,11
  162. 1050 [142]
  163. 10000 dv[178][194](186):[159]15,dv,15,"s0:b.star noir":[160]15:[148]"b.star noir",dv:[128]
  164. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  165. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  166. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  167. 40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  168. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  169. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  170. 40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
  171. 40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  172. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  173. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  174. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  175. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]9:[153]z$:[130]
  176. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  177. 60030 z$(0)[178]"(NULL) (NULL) atn (NULL)   (NULL) (NULL) right$ (NULL)":z$(1)[178]"by (NULL)alt left$arned and ascender (NULL)ucker
  178. 60040 z$(2)="([195]) 1995 by [211]oftdisk [208]ublishing"+chr$(13)
  179. 60050 z$(3)="[212]his program is the copyrighted work
  180. 60060 z$(4)[178]"of (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) (NULL)(NULL)peek(NULL)right$(NULL)left$right$(NULL)chr$.  right$t